home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / batch / MiniMen.lha / MiniMen / TransADFP.1 < prev    next >
Encoding:
AmigaDOS Script File  |  2000-02-13  |  440 b   |  19 lines
  1. .key fname
  2. MiniMen drives
  3. if exists env:minmen
  4.    echo >env:drive $MinMen
  5.    MiniMen TransMode
  6.    if exists env:minmen
  7.       if $MinMen EQ "NONE"
  8.          TransADF DRIVE $drive: FILE "<fname>.ADF"
  9.       else 
  10.          TransADF DRIVE $drive: FILE "<fname>.ADZ" $MinMen NAME Pack.ADF
  11.       endif
  12.    else
  13.       echo "*N Operation canceled...!"
  14.    endif
  15. else
  16.    echo "*N Operation canceled...!"
  17. endif
  18. delete >nil: env:MinMen env:drive env:FADF
  19.